www.gusucode.com > 深度学习(asp)网址导航 v4.0.1 > 深度学习(asp)网址导航 v4.0.1\code\index.asp

    <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="ConnDB.asp"-->
<!--#include file="include/function.Common.asp"-->
<!--#include file="include/Deep.Class.Template.asp"-->
<!--#include file="include/Deep.Class.Cache.asp"-->

<!--#include file="include/function.tag.template.asp"-->
<!--#include file="include/function.tag.url.asp"-->
<!--#include file="include/function.tag.common.asp"-->
<%
'是否html静态
if(site_isHTML=1)then
	call CloseConnDB()
	Response.Redirect("html/index.htm")
end if

Dim oDeep_Cache
Set oDeep_Cache = New Deep_Cache
oDeep_Cache.CacheGroupName="DeepStudy_url"	'缓存组的名称	"Cache_Site_Index"	' 缓存对象的名称

Dim strHtml:strHtml=""

if  oDeep_Cache.CacheIsEmpty("Cache_Site_Index")=false Then
    strHtml = oDeep_Cache.GetValue("Cache_Site_Index")
Else

	'response.write "======== cache test============"

	dim oDeepTemplate
	set oDeepTemplate=new Deep_Template


		oDeepTemplate.templates_dir="themes/"&site_theme&"/"
		'template=oDeepTemplate.readTemplateFile("index.htm")
		oDeepTemplate.readTemplateFile("index.template.html")	'调入文件
		'response.Write(oDeepTemplate.template)
		'template=replace(template,"../base.css","themes/base.css")
		oDeepTemplate.replaceText "theme.css","themes/"&site_theme&"/theme.css"
		
		do_replace_siteConfig(oDeepTemplate)	'替换网站基本配置信息标签
		
		'导航
		call do_replace_Channel()
		'广告
		call do_replace_AD()
		'response.Write( oDeepTemplate.template )
		oDeepTemplate.replaceTag "custom_sort_url",getHTML_custom_sort_url
		
		' 参数	{$fastLogin(46,8)}
		oDeepTemplate.replaceTagParameter "fastLogin","getHTML_fastLogin"
		oDeepTemplate.replaceTag "urlSort",getHTML_urlSort
		oDeepTemplate.replaceTagParameter "urlCool","getHTML_urlCool"
		
		oDeepTemplate.replaceTag "friendLink",getHTML_friendLink
		oDeepTemplate.replaceTag "siteInfoStatistic",getHTML_siteInfoStatistic
		
		oDeepTemplate.display()	'显示

    oDeep_Cache.SetValue "Cache_Site_Index", oDeepTemplate.template

	set oDeepTemplate=Nothing
End If

Response.Write strHtml

		'oDeep_Cache.DelAllCache ()

' ===================
Set oDeep_Cache = Nothing


call CloseConnDB()
%>